home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00020_icon2 menu first frame.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  1.6 KB  |  38 lines
  1. on enterFrame
  2.   global IconList2, gCurrLabel
  3.   if the frameLabel <> 0 then
  4.     gCurrLabel = the frameLabel
  5.   end if
  6.   IconList2 = [:]
  7.   start = 5
  8.   addProp(IconList2, start, new(script("minor icons"), "open", "internal", start, the loc of sprite start, 1))
  9.   start = start + 1
  10.   addProp(IconList2, start, new(script("minor icons"), "print", "internal", start, the loc of sprite start, 1))
  11.   start = start + 1
  12.   addProp(IconList2, start, new(script("minor icons"), "cut", "internal", start, the loc of sprite start, 1))
  13.   start = start + 1
  14.   addProp(IconList2, start, new(script("minor icons"), "copy", "internal", start, the loc of sprite start, 1))
  15.   start = start + 1
  16.   addProp(IconList2, start, new(script("minor icons"), "paste", "internal", start, the loc of sprite start, 1))
  17.   start = start + 1
  18.   addProp(IconList2, start, new(script("minor icons"), "save", "internal", start, the loc of sprite start, 1))
  19.   start = start + 1
  20.   addProp(IconList2, start, new(script("minor icons"), "sound", "internal", start, the loc of sprite start, 1))
  21.   start = start + 1
  22.   addProp(IconList2, start, new(script("minor icons"), "help", "internal", start, the loc of sprite start, 1))
  23. end
  24.  
  25. on exitFrame
  26.   global IconList2, gMenuButton, gMenuExit, gTourForwardArrow, gTourBackArrow, gPlaySound
  27.   isMemoryAvailable("continue the tour", 1200, 500)
  28.   gPlaySound = 1
  29.   repeat with X = 5 to 12
  30.     iconObj = getaProp(IconList2, X)
  31.     Inscope(iconObj)
  32.   end repeat
  33.   repeat with rc in [gMenuButton, gMenuExit, gTourForwardArrow, gTourBackArrow]
  34.     Inscope(rc)
  35.   end repeat
  36.   setHandCursor([5, 6, 7, 8, 9, 10, 11, 12, 40, 41, 42])
  37. end
  38.